home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
library
/
rqtlsusr.lha
/
ReqTools
/
RexxReqTools
/
Examples
/
TTXARexx.lha
/
CloseDoc.ttx
< prev
next >
Wrap
Text File
|
1993-10-21
|
460b
|
21 lines
/* $VER: CloseDoc.ttx 1.1 (12.07.93) */
OPTIONS RESULTS
GetFileInfo
Parse VAR RESULT Lines Modified .
IF Modified = "YES" THEN DO
Ret = rtEZRequest( "Close without saving changes?", " _Ok |_Save...|_Cancel", "TurboText request", "RT_PubScrName=TURBOTEXT" )
IF Ret = 0 THEN RETURN
IF Ret = 2 THEN DO
CALL 'Env:Rexx/SaveFileAs.ttx'
GetFileInfo
Parse VAR RESULT Lines Modified .
IF Modified = "YES" THEN RETURN
END
END
CloseDoc QUIET